home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)s3.d64 / birthday.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  59 lines
  1. 99 POKE53280,0:POKE53281,0
  2. 100 PRINT "[147][154]MUSIC  (BY JIM BUTTERFIELD)
  3. 101 [135] S:[139] S[178]0 [137] 109
  4. 102 [135] S$:[141] 1000
  5. 103 [135] X1,Y1,X2,Y2,X3,Y3
  6. 104 [137] 101
  7. 109 [140]:[153]""
  8. 110 L1[178]54272:L2[178]54279:L3[178]54286
  9. 120 H1[178]L1[170]1:H2[178]L2[170]1:H3[178]L3[170]1
  10. 130 V1[178]L1[170]4:V2[178]L2[170]4:V3[178]L3[170]4
  11. 140 [151] 54296,15
  12. 150 [151] V1[170]1,9:[151] V1[170]2,0
  13. 160 [151] V2[170]1,36:[151] V2[170]2,36
  14. 170 [151] V3[170]1,18:[151] V3[170]2,170
  15. 180 T[178]TI
  16. 200 [151] V1,16:[151] V2,32:[151] V3,16
  17. 210 [135] S:[139] S[178]0 [137] 290
  18. 212 [135] S$:[141] 1000
  19. 220 [135] X1,Y1,X2,Y2,X3,Y3
  20. 230 [139] X1 [167] [151] H1,X1:[151] L1,Y1:[151] V1,17
  21. 240 [139] X2 [167] [151] H2,X2:[151] L2,Y2:[151] V2,33
  22. 250 [139] X3 [167] [151] H3,X3:[151] L3,Y3:[151] V3,17
  23. 260 T[178]T[170]S
  24. 270 [139] T[177]TI [137] 270
  25. 280 [137] 200
  26. 290 [129]J[178]L1 [164] 54296:[151] J,0:[130] J
  27. 295 [153]"CONT";:[128]
  28. 300 [131] 40,"  HAP",34,75,0,0,0,0
  29. 310 [131] 20,"PY",34,75,0,0,0,0
  30. 320 [131] 60," BIRTH",38,126,28,214,5,185
  31. 330 [131] 60,"DAY",34,75,28,214,0,0
  32. 340 [131] 60," TO",45,198,38,126,5,185
  33. 350 [131] 60," YOU",43,52,30,141,4,73
  34. 360 [131] 60,",",0,0,0,0,0,0
  35. 370 [131] 40,"  HAP",34,75,0,0,0,0
  36. 380 [131] 20,"PY",34,75,0,0,0,0
  37. 390 [131] 60," BIRTH",38,126,30,141,6,108
  38. 400 [131] 60,"DAY",34,75,30,141,0,0
  39. 410 [131] 60," TO",51,97,34,75,4,73
  40. 420 [131] 60," YOU",45,198,28,214,5,185
  41. 430 [131] 60,",",0,0,0,0,0,0
  42. 440 [131] 40,"  HAP",34,75,0,0,0,0
  43. 450 [131] 20,"PY",34,75,0,0,0,0
  44. 460 [131] 60," BIRTH",68,149,22,227,5,185
  45. 470 [131] 60,"DAY",57,172,25,177,0,0
  46. 480 [131] 60," DEAR",45,198,28,214,7,53
  47. 500 [131] 60," DA",21,154,30,141,7,163
  48. 510 [131] 60,"VID",19,63,30,141,0,0
  49. 520 [131] 60,",",0,0,0,0,0,0
  50. 530 [131] 40,"  HAP",61,126,0,0,0,0
  51. 540 [131] 20,"PY",61,126,0,0,0,0
  52. 550 [131] 60," BIRTH",57,172,34,75,8,147
  53. 560 [131] 60,"DAY",45,198,28,214,0,0
  54. 600 [131] 60," TO",51,97,30,141,4,73
  55. 610 [131] 60," YOU.",45,198,28,214,2,220
  56. 620 [131] 0
  57. 1000 [153] S$;:[139] [201](S$,1)[179]"0" [167] [153]
  58. 1010 [142]
  59.